home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ABERMUD.ZIP / OPENSYS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-08  |  683 b   |  31 lines
  1. /* Fast File Controller v0.1 */
  2. #include <stdio.h>
  3.  
  4. FILE *filrf=NULL;  /* - = not open */
  5.  
  6. extern FILE *openlock(); 
  7. closeworld()
  8. {
  9.     extern FILE *filrf;
  10.         extern long objinfo[],numobs,ublock[];
  11.     if(filrf==NULL) return;
  12.     sec_write(filrf,objinfo,400,4*numobs);
  13.     sec_write(filrf,ublock,350,16*48);
  14.     fcloselock(filrf);
  15.     filrf= NULL;
  16. }
  17.  
  18. FILE *openworld()
  19. {
  20.     extern FILE *filrf;
  21.         extern long objinfo[],numobs,ublock[];
  22.     if(filrf!=NULL) return(filrf);
  23.     filrf=openlock("/usr/tmp/-[iy7]|AM","r+");
  24.     if(filrf==NULL)
  25.        crapup("Cannot find World file");
  26.     sec_read(filrf,objinfo,400,4*numobs);
  27.     sec_read(filrf,ublock,350,16*48);
  28.     return(filrf);
  29. }
  30.  
  31.